function Mom=SubFun_ResultCell2Mom(ResultCell)

Mom     =   SubFun_Result2Mom(ResultCell{1});

List_Shock  =   fieldnames(Mom.Stat);

if length(ResultCell)>1
    for ii=2:length(ResultCell)
        TempMom     =   SubFun_Result2Mom(ResultCell{ii});
        for jj=1:length(List_Shock)
            SH              =   List_Shock{jj};
            Mom.Stat.(SH)   =   [Mom.Stat.(SH),TempMom.Stat.(SH)];
        end
    end
end